Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/comp-defn.fm

Text File | 1993-07-16 | 9KB | 1,718 lines

(standard0 list-fns comp-utl)
29
2938
(name compile-unit direct-superclasses direct-slot-descriptions statics slot-class initarg initfunction %_*unbound*_% local-count byte-codes imports exports length local-names metaclass-hypotheses comp-defn sc-compile-unit code slots nslots name-list names dependencies unit-name lambda-list (x) method-class argtype 1 methods domain signature function %%-unresolved-%% %%-link-me-%% %%-big-arg-%% %%-me-local--%% %%-static-%% (unit-name sc-compile-unit sc-dependencies sc-names sc-length sc-nslots sc-code sc-statics compile-unit compile-unit-length compile-unit-exports compile-unit-imports compile-unit-byte-codes compile-unit-local-count compile-unit-name compile-unit-statics make-compile-unit the-static-handle the-local-handle the-link-handle the-long-handle the-unresolved-handle) ((strip (union (import standard0) (import list-fns) (import comp-utl))) path-open make-search-path fast-file-name get-module-stream interface-file-name get-expander sc-file-name encapsulated-static-file-name encapsulated-byte-file-name bytecode-file-name read-object write-object unit-name sc-compile-unit sc-dependencies sc-names sc-length sc-nslots sc-code sc-statics compile-unit compile-unit-length compile-unit-exports compile-unit-imports compile-unit-byte-codes compile-unit-local-count compile-unit-name compile-unit-statics make-compile-unit the-static-handle the-local-handle the-link-handle the-long-handle the-unresolved-handle) comp-defn)
36
0 0 17 0
5
0 0 0 0
3
0
31
0 1 64 0
17
1
36
0 0 27 0
5
0 0 0 0
4
0 0 42 0
46
1
(boot . make-installed-module)
34
2
36
0 0 250 0
5
0 0 0 0
8
3
4
0 0 40 0
5
0 0 43 0
3
0
39
8
0
5
0 0 44 0
3
0
39
28
1
5
0 0 45 0
3
0
39
28
1
5
0 0 46 0
3
0
39
28
1
5
0 0 47 0
3
0
39
28
1
5
0 0 48 0
3
0
39
28
1
5
0 0 49 0
3
0
39
28
1
5
0 0 50 0
3
0
39
28
1
5
0 0 51 0
3
0
39
28
1
5
0 0 52 0
3
0
39
28
1
5
0 0 53 0
3
0
39
28
1
5
0 0 54 0
3
0
39
28
1
5
0 0 55 0
3
0
39
28
1
5
0 0 56 0
3
0
39
28
1
5
0 0 57 0
3
0
39
28
1
5
0 0 58 0
3
0
39
28
1
5
0 0 59 0
3
0
39
28
1
5
0 0 60 0
3
0
39
28
1
5
0 0 61 0
3
0
39
28
1
5
0 0 62 0
3
0
39
28
1
5
0 0 63 0
3
0
39
28
1
5
0 0 64 0
3
0
39
28
1
17
1
1
(boot . install-local-bindings)
34
3
17
1
36
0 0 28 0
5
0 0 1 0
8
3
4
0 0 41 0
1
(boot . make-interface)
34
2
17
1
14
2
1
37
22
0
36
0 2 235 0
1
(init . make)
1
(init . <structure-class>)
4
0 0 1 0
3
0
39
9
4
0 0 2 0
3
0
39
29
4
0 0 3 0
3
0
39
29
1
(init . <structure>)
3
0
39
3
0
39
29
4
0 0 4 0
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 5 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 5 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
9
4
0 0 1 0
3
0
39
9
4
0 0 1 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 1 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 10 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 10 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 11 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 11 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 12 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 12 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 13 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 13 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 14 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 15 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 15 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
29
18
3
0
39
29
4
0 0 16 0
3
0
39
29
3
0
3
0
39
29
18
11
34
-2
7
0 0 51 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 51 0
4
0 0 15 0
11
34
2
7
0 0 65 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 51 0
4
0 0 14 0
11
34
2
7
0 0 52 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 51 0
4
0 0 13 0
11
34
2
7
0 0 53 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 51 0
4
0 0 12 0
11
34
2
7
0 0 54 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 51 0
4
0 0 11 0
11
34
2
7
0 0 55 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 51 0
4
0 0 10 0
11
34
2
7
0 0 56 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 51 0
4
0 0 1 0
11
34
2
7
0 0 57 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 51 0
4
0 0 5 0
11
34
2
7
0 0 58 0
36
0 6 4 0
11
4
0 0 17 0
5
0 0 0 0
39
51
-1
7
0 0 59 0
36
0 2 73 0
1
(init . make)
1
(init . <structure-class>)
4
0 0 1 0
3
0
39
9
4
0 0 18 0
3
0
39
29
4
0 0 3 0
3
0
39
29
1
(init . <structure>)
3
0
39
3
0
39
29
4
0 0 4 0
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 5 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 5 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
9
4
0 0 1 0
3
0
39
9
4
0 0 19 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 19 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 20 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 14 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 22 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 23 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 24 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 24 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
29
18
3
0
39
29
4
0 0 16 0
3
0
39
29
3
0
3
0
39
29
18
11
34
-2
7
0 0 44 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 44 0
4
0 0 24 0
11
34
2
7
0 0 45 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 44 0
4
0 0 22 0
11
34
2
7
0 0 46 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 44 0
4
0 0 14 0
11
34
2
7
0 0 47 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 44 0
4
0 0 20 0
11
34
2
7
0 0 48 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 44 0
4
0 0 19 0
11
34
2
7
0 0 49 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 44 0
4
0 0 5 0
11
34
2
7
0 0 50 0
36
0 2 166 0
11
4
0 0 17 0
6
1
39
51
-1
7
0 0 66 0
36
0 0 143 0
1
(init . make)
1
(class-names . <generic-function>)
4
0 0 1 0
3
0
39
9
4
0 0 25 0
3
0
39
29
4
0 0 26 0
3
0
39
29
4
0 0 27 0
3
0
39
29
4
0 0 28 0
3
0
39
29
1
(class-names . <method>)
3
0
39
29
4
0 0 29 0
3
0
39
29
4
0 0 30 0
3
0
39
29
4
0 0 31 0
3
0
39
29
3
0
3
0
39
29
4
0 0 32 0
3
0
39
29
1
(class-names . <object>)
3
0
39
3
0
39
29
18
11
34
-2
7
0 0 43 0
36
0 0 123 0
1
(init . add-method)
4
0 0 43 0
36
0 0 101 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 43 0
10
34
1
4
0 0 33 0
3
0
39
9
4
0 0 51 0
3
0
39
3
0
39
29
4
0 0 29 0
3
0
39
29
4
0 0 30 0
3
0
39
29
4
0 0 34 0
3
0
39
29
36
0 1 117 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 123 0
1
(init . add-method)
4
0 0 43 0
36
0 0 101 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 43 0
10
34
1
4
0 0 33 0
3
0
39
9
4
0 0 44 0
3
0
39
3
0
39
29
4
0 0 29 0
3
0
39
29
4
0 0 30 0
3
0
39
29
4
0 0 34 0
3
0
39
29
36
0 0 215 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
4
0 0 35 0
7
0 0 67 0
4
0 0 36 0
7
0 0 68 0
4
0 0 37 0
7
0 0 69 0
4
0 0 38 0
7
0 0 70 0
4
0 0 39 0
7
0 0 71 0
36
0 0 137 0
11
4
0 0 17 0
6
2
39
51
0
7
0 0 64 0
36
0 0 109 0
11
4
0 0 17 0
6
3
39
51
0
7
0 0 63 0
36
0 0 81 0
11
4
0 0 17 0
6
4
39
51
0
7
0 0 62 0
36
0 0 53 0
11
4
0 0 17 0
6
5
39
51
0
7
0 0 61 0
36
0 0 25 0
11
4
0 0 17 0
6
6
39
51
0
7
0 0 60 0
18
3
1
37
18
4
0 0 71 0
37
18
4
0 0 70 0
37
18
4
0 0 68 0
37
18
4
0 0 69 0
37
18
4
0 0 67 0
37
1
(comp-utl . sc-file-name)
36
0 0 15 0
4
0 0 46 0
8
5
10
33
1
26
14
4
2
16
9
13
3
34
1
1
(comp-utl . bytecode-file-name)
36
0 0 15 0
4
0 0 57 0
8
5
10
33
1
14
4
2
16
9
13
3
34
1
1
(init . apply)
1
(init . make)
4
0 0 44 0
36
0 0 21 0
1
(boot . nconc)
3
0
8
8
11
34
2
3
0
39
12
14
7
4
9
13
5
34
-3
1
(init . apply)
1
(init . make)
4
0 0 51 0
36
0 0 21 0
1
(boot . nconc)
3
0
8
8
11
34
2
3
0
39
12
14
7
4
9
13
5
34
-3